home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
qbbs
/
vd115q.zip
/
RUNRA.BAT
< prev
next >
Wrap
DOS Batch File
|
1990-11-04
|
6KB
|
258 lines
@echo off
dtr on
at h1
if exist d:\start.flg start
if z%1 == zstart goto start
:begin
cls
echo RunRA.Bat - Boot Factory BBS
echo FidoNET 1:264/19
echo.
echo Last Update: 16 Sep 90
echo.
cdd D:\qbbs
tm /l >> d:\system.log
echo *** Loading RA Mailer Shell *** >> d:\system.log
qbsquote d:\qbbs\text\logoff
:start
if exist d:\seadog\file\nodediff.* call svc nodediff
if exist d:\seadog\file\fnews*.* call svc fidonews
if exist d:\xlat\nodediff.* call svc xlat
if exist d:\seadog\file\*.tic call svc tick
if exist d:\seadog\file\al.zip call svc importal
if not exist d:\qmx\7443????.* goto skip_xrs
copy d:\qmx\7443????.* d:\seadog\file
del d:\qmx\7443????.*
call svc toss
:skip_xrs
skip 2
tm /l
ramfree
echo Loading RA and shelling to FD
cdd d:\qbbs
ra -m\fd\fd.exe*M -E20
goto after_quick
:after_msg
ra -R -L -E20
:after_quick
if errorlevel 210 goto scanecho
if errorlevel 200 goto tossnet
if errorlevel 190 goto unpackmail
if errorlevel 111 goto arcmail
if errorlevel 102 goto qmx
if errorlevel 101 goto validoor
if errorlevel 100 goto localbbs
if errorlevel 90 goto remote
if errorlevel 73 boot
if errorlevel 72 goto makenl
if errorlevel 71 goto filedoor
if errorlevel 49 goto Cleanup
if errorlevel 48 goto weekend
if errorlevel 20 goto begin
if errorlevel 16 goto fossil
if errorlevel 15 goto modeminit
if errorlevel 14 goto modemresp
if errorlevel 13 goto fulldisk
if errorlevel 12 goto external
if errorlevel 11 goto internal
if errorlevel 10 goto end
if errorlevel 5 goto net&echo
if errorlevel 4 goto echo_only
if errorlevel 3 goto net_only
goto start
:Localbbs
cdd d:\qbbs
ra -L -E20
goto After_quick
:remote
xu watchcd:0:ON
ctty com1
4dos
echo Returning to Remote Access
ctty con
cdd d:\qbbs
xu watchcd:0:OFF
goto After_Msg
:loc_remote
4dos
goto after_msg
:qmx
raqmx286
goto after_msg
:validoor
call validate.bat
goto after_msg
:net&echo
cdd d:\qbbs
rem ZMailQ NE
rem mailscan
mbutil export
:echo_only
cdd d:\qbbs
ZMailQ EE EP PA NS
goto begin
:net_only
cdd d:\qbbs
rem ZMailQ NE
rem mailscan
mbutil export
goto begin
:unpackmail
dtr on
at h1
tm /l >> d:\system.log
timer >> d:\system.log
echo *** Processing Incoming ARCmail >> d:\system.log
cdd d:\seadog\file
spaz -F -M264/19 D:\SEADOG\FILE
cdd d:\qbbs
rem areafix EC
elvis
ZMailQ PI PA EP EI NF NS FLtoss.log
if not exist toss.log goto skiplink
mbutil link -clean
del toss.log
:skiplink
if not exist fastfwd.bat goto a2
call fastfwd.bat
ZMailQ PA EP EE NS FAfastfwd.bbs
del fastfwd.bat
:a2
goto resume
if errorlevel 255 goto Q255
if errorlevel 5 goto Q5
if errorlevel 4 goto Q4
if errorlevel 3 goto Q3
if errorlevel 2 goto Q2
if errorlevel 1 goto Q1
:resume
cdd d:\qbbs
timer >> d:\system.log
goto start
:tossnet
cdd d:\qbbs
ZMailQ NI
goto start
:scanecho
cdd d:\qbbs
ZMailQ EE EP PA NS
goto start
:ArcMail
cdd d:\fd
arcmail to 264/27 -0
cdd d:\qbbs
goto start
:MAKENL
call Node_Upd
cdd d:\qbbs
goto start
:CLEANUP
task 10 Execute Cleanup?
if errorlevel 1 goto clean
goto start
:CLEAN
call svc mkctrl cleanup movetemp mcfreq mcfram renum dskspace defrag reboot
goto start
:WEEKEND
task 10 Execute Weekend?
if errorlevel 1 goto wkend
goto start
:WKEND
call svc weekend moderate scan virii
goto start
:FILEDOOR
cdd d:\qbbs
copy users.bbs e:\sysfiles
fd_upd
cdd d:\fd
xr get software 27 /c
xr get files 160 /c
call svc fishing
goto start
:fossil
Echo Wrong Fossil Version Error
goto end
:modeminit
Echo Unable To Initialize Modem
goto end
:modemresp
Echo Modem Not Responding
goto end
:fulldisk
Echo Insufficient Disk Space To Proceed
goto end
:external
Echo External Error - System File Missing
goto end
:internal
Echo Internal Error
goto end
:Q255
cls
echo ZMailQ reports User Abort
goto end
:Q5
cls
echo ZMailQ reports Error 5
goto end
:Q4
cls
echo ZMailQ reports Error 4
goto end
:Q3
cls
echo ZMailQ reports Error 3
goto end
:Q2
cls
echo ZMailQ reports Error 2
goto end
:Q1
cls
echo ZMailQ reports Error 1
goto end
:end
dtr on
at h1